inherited frmDupl_Sudameris: TfrmDupl_Sudameris
  Top = 75
  Caption = 'Ficha Compensa'#231#227'o Sudameris'
  ClientHeight = 538
  ClientWidth = 652
  OldCreateOrder = True
  ShowHint = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Width = 652
    Height = 365
    object Label8: TLabel
      Left = 32
      Top = 7
      Width = 47
      Height = 14
      Caption = 'Emiss'#227'o'
    end
    object Label5: TLabel
      Left = 60
      Top = 215
      Width = 35
      Height = 14
      Caption = 'Aceite'
    end
    object Label7: TLabel
      Left = 100
      Top = 269
      Width = 245
      Height = 14
      Caption = 'Instru'#231#245'es de Responsabilidade do Cedente'
    end
    object c_mensagem: TSpeedButton
      Left = 128
      Top = 284
      Width = 22
      Height = 19
      Enabled = False
      Flat = True
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        333333333333FF3333333333333C0C333333333333F777F3333333333CC0F0C3
        333333333777377F33333333C30F0F0C333333337F737377F333333C00FFF0F0
        C33333F7773337377F333CC0FFFFFF0F0C3337773F33337377F3C30F0FFFFFF0
        F0C37F7373F33337377F00FFF0FFFFFF0F0C7733373F333373770FFFFF0FFFFF
        F0F073F33373F333373730FFFFF0FFFFFF03373F33373F333F73330FFFFF0FFF
        00333373F33373FF77333330FFFFF000333333373F333777333333330FFF0333
        3333333373FF7333333333333000333333333333377733333333333333333333
        3333333333333333333333333333333333333333333333333333}
      NumGlyphs = 2
      OnClick = c_mensagemClick
    end
    object Label6: TLabel
      Left = 19
      Top = 246
      Width = 76
      Height = 14
      Caption = 'Juros ao m'#234's'
    end
    object Label9: TLabel
      Left = 283
      Top = 246
      Width = 82
      Height = 14
      Caption = 'Nosso n'#250'mero'
      Visible = False
    end
    object Label10: TLabel
      Left = 300
      Top = 217
      Width = 68
      Height = 14
      Caption = 'Data proces.'
    end
    object Label12: TLabel
      Left = 224
      Top = 7
      Width = 6
      Height = 14
      Caption = 'a'
    end
    object edtbase: TDateEdit
      Left = 88
      Top = 4
      Width = 121
      Height = 21
      Ctl3D = False
      NumGlyphs = 2
      ParentCtl3D = False
      YearDigits = dyFour
      TabOrder = 0
      OnKeyDown = edtbaseKeyDown
    end
    object dbgTitCredito: TDBGrid
      Left = 0
      Top = 29
      Width = 645
      Height = 180
      Hint = 'Clique no t'#237'tulo e depois na tecla [DEL] p/ excluir'
      DataSource = ds
      Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 2
      TitleFont.Charset = ANSI_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'Arial'
      TitleFont.Style = [fsBold]
      OnKeyDown = dbgTitCreditoKeyDown
      Columns = <
        item
          Expanded = False
          FieldName = 'Entidade'
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'titc_numero'
          Title.Caption = 'N'#250'mero'
          Title.Color = clInfoBk
          Width = 99
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'emp_codigo'
          Title.Caption = 'Empresa'
          Width = 54
          Visible = True
        end
        item
          Color = 16777145
          Expanded = False
          FieldName = 'titc_dataemis'
          Title.Caption = 'Dt.Emiss'#227'o'
          Title.Color = 16777145
          Width = 68
          Visible = True
        end
        item
          Color = clInfoBk
          Expanded = False
          FieldName = 'titc_datavenc'
          Title.Caption = 'Vencimento'
          Title.Color = clInfoBk
          Width = 74
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'titc_valor'
          Title.Caption = 'Valor'
          Width = 95
          Visible = True
        end
        item
          Color = clInactiveCaptionText
          Expanded = False
          FieldName = 'titc_saldo'
          Title.Caption = 'Saldo'
          Width = 100
          Visible = True
        end
        item
          Color = 16777145
          Expanded = False
          FieldName = 'titc_datapgto'
          Title.Caption = 'Dt. Pagto'
          Title.Color = 16777145
          Width = 66
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'titc_valorpago'
          Title.Caption = 'Valor Pago'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'bord_numero'
          Title.Caption = 'Bordero Cobr.'
          Width = 81
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'Local_codigo'
          Title.Caption = 'Local Cobr.'
          Width = 253
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'titc_obs'
          Title.Caption = 'Observa'#231#227'o'
          Width = 264
          Visible = True
        end>
    end
    object edtAceite: TRadioGroup
      Left = 99
      Top = 210
      Width = 102
      Height = 31
      Columns = 2
      Ctl3D = True
      ItemIndex = 1
      Items.Strings = (
        'S'
        'N')
      ParentCtl3D = False
      TabOrder = 3
    end
    object ed_mensagem: TEdit
      Left = 100
      Top = 283
      Width = 25
      Height = 22
      BevelKind = bkFlat
      BorderStyle = bsNone
      CharCase = ecUpperCase
      MaxLength = 3
      TabOrder = 6
      OnEnter = ed_mensagemEnter
      OnExit = ed_mensagemExit
      OnKeyDown = ed_mensagemKeyDown
      OnKeyPress = ed_mensagemKeyPress
    end
    object edtInstr: TMemo
      Left = 100
      Top = 307
      Width = 417
      Height = 49
      BevelKind = bkFlat
      BorderStyle = bsNone
      TabOrder = 7
    end
    object ed_Juros: TCurrencyEdit
      Left = 99
      Top = 244
      Width = 65
      Height = 21
      AutoSize = False
      Ctl3D = False
      DisplayFormat = '0.00, %'
      ParentCtl3D = False
      TabOrder = 5
    end
    object edNossoNum: TEdit
      Left = 372
      Top = 243
      Width = 145
      Height = 22
      BevelKind = bkFlat
      BorderStyle = bsNone
      CharCase = ecUpperCase
      MaxLength = 20
      TabOrder = 8
      Visible = False
    end
    object Panel4: TPanel
      Left = 372
      Top = 267
      Width = 145
      Height = 25
      TabOrder = 9
      Visible = False
    end
    object edtData: TDateEdit
      Left = 372
      Top = 216
      Width = 121
      Height = 21
      Ctl3D = False
      NumGlyphs = 2
      ParentCtl3D = False
      YearDigits = dyFour
      TabOrder = 4
    end
    object edtbaseF: TDateEdit
      Left = 240
      Top = 4
      Width = 121
      Height = 21
      Ctl3D = False
      NumGlyphs = 2
      ParentCtl3D = False
      YearDigits = dyFour
      TabOrder = 1
      OnKeyDown = edtbaseFKeyDown
    end
  end
  inherited Panel2: TPanel
    Top = 471
    Width = 652
    inherited btncancelar1: TBitBtn
      Left = 276
    end
    inherited btnfechar1: TBitBtn
      Left = 542
    end
    inherited bimprimir: TFlatButton
      Enabled = True
      OnClick = bimprimirClick
    end
    inherited btncancelar: TFlatButton
      Left = 270
      OnClick = btncancelarClick
    end
    inherited btnfechar: TFlatButton
      Left = 530
    end
  end
  inherited sb: TStatusBar
    Top = 519
    Width = 652
  end
  inherited Panel3: TPanel
    Width = 652
    inherited ListaEmp: TCheckListBox
      Width = 633
    end
  end
  object ds: TDataSource
    DataSet = CDS
    Left = 240
    Top = 205
  end
  object CDS: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 272
    Top = 205
    object CDStitc_numero: TStringField
      FieldName = 'titc_numero'
    end
    object CDStipd_codigo: TStringField
      FieldName = 'tipd_codigo'
    end
    object CDSemp_codigo: TStringField
      FieldName = 'emp_codigo'
    end
    object CDStitc_dataemis: TDateField
      FieldName = 'titc_dataemis'
    end
    object CDStitc_datavenc: TDateField
      FieldName = 'titc_datavenc'
    end
    object CDStitc_valor: TFloatField
      FieldName = 'titc_valor'
      currency = True
    end
    object CDStitc_saldo: TFloatField
      FieldName = 'titc_saldo'
      currency = True
    end
    object CDStitc_datapgto: TDateField
      FieldName = 'titc_datapgto'
    end
    object CDStitc_valorpago: TFloatField
      FieldName = 'titc_valorpago'
    end
    object CDSbord_numero: TStringField
      FieldName = 'bord_numero'
    end
    object CDSLocal_codigo: TStringField
      FieldName = 'Local_codigo'
    end
    object CDStitc_obs: TBlobField
      FieldName = 'titc_obs'
    end
    object CDStitc_nossonum: TStringField
      FieldName = 'titc_nossonum'
    end
    object CDSent_codigo: TStringField
      FieldName = 'ent_codigo'
      Size = 5
    end
    object CDSEntidade: TStringField
      FieldName = 'Entidade'
      Size = 30
    end
  end
end
